home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / koala_instant_programmers_guide[koala_technologies_1983].nbz / kb part 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.3 KB  |  103 lines
  1. 1 REM********KB PART 3******************
  2. 100 PRINT"[147]"
  3. 1000 GOSUB 10100
  4. 1100 POKE 53280,12:POKE 53281,1:PRINT""
  5. 2290 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
  6. 2300 PRINT"YOU ARE NEARLY FINISHED WITH THIS       INTRODUCTION!"
  7. 2305 PRINT:PRINT
  8. 2310 PRINT:PRINT"BEFORE ENDING, YOU SHOULD KNOW HOW TO "
  9. 2315 PRINT"SCALE RAW DATA FROM THE TABLET TO MATCH"
  10. 2320 PRINT"THE SCREEN DIMENSIONS:"
  11. 2325 GOSUB 10400
  12. 2326 PRINT"[147]"
  13. 2329 PRINT:PRINT:PRINT:PRINT
  14. 2330 PRINT"FIRST SET THE MINIMUM AND MAXIMUM VALUESFOR YOUR TABLET"
  15. 2340 PRINT:PRINT:PRINT"2340 MN=6:MX=255"
  16. 2345 PRINT:PRINT:PRINT"THEN FACTOR THE TABLET FOR THE SCREEN:"
  17. 2350 PRINT:PRINT:PRINT"2350 FX=320/(MX-MN) : FY=200/(MX-MN)"
  18. 2360 PRINT"2360 X=FX*PEEK(54297) : Y=FY*PEEK(54298)"
  19. 2380 GOSUB 10400
  20. 2390 PRINT"[147]"
  21. 2500 REM*********MUSIC ROUTINE**********
  22. 2510 PRINT:PRINT:PRINT:PRINT:PRINT"THIS PROGRAM ALSO HAS A MUSIC ROUTINE"
  23. 2515 PRINT"WHICH USES THE TABLET TO CREATE PITCH"
  24. 2520 PRINT"(Y) AND DURATION (X) VALUES."
  25. 2525 PRINT:PRINT:PRINT"[144]   *** TURN UP YOUR SPEAKER VOLUME ***"
  26. 2526 PRINT:PRINT
  27. 2530 PRINT"NOW, MOVE YOUR FINGER AROUND THE TABLET"
  28. 2535 PRINT"AND LISTEN TO THE SOUNDS."
  29. 2540 VTAB=22:GOSUB 10000
  30. 2545 PRINTEB$
  31. 2550 POKE 54296,15
  32. 2552 POKE 54277,68
  33. 2553 POKE 54278,68
  34. 2555 POKE 54276,33:POKE 54283,0:POKE 54290,0
  35. 2565 GOSUB 10300
  36. 2566 X=XP:Y=YP
  37. 2567 IF S2<>255 THEN 3000
  38. 2568 IF X>=10 OR Y>=10 THEN POKE 54276,33
  39. 2569 IF X<10 AND Y<10 THEN POKE 54276,0
  40. 2570 FOR I=1 TO X:NEXT
  41. 2580 POKE 54273,Y
  42. 2590 POKE 54272,100
  43. 2700 GOTO 2565
  44. 3000 POKE 54296,0
  45. 3010 PRINT"[147]"
  46. 3015 PRINT:PRINT:PRINT:PRINT
  47. 3020 PRINT"ALL MUSICAL QUALITIES ARE CONTROLLED BY"
  48. 3030 PRINT"USING 'POKE' COMMANDS."
  49. 3070 PRINT:PRINT:PRINT"POKE 54296   VOLUME CONTROL"
  50. 3080 PRINT"POKE 54277   ATTACK/DECAY LEVELS"
  51. 3090 PRINT"POKE 54278   SUSTAIN/RELEASE LEVELS"
  52. 3100 PRINT"POKE 54273   HIGH AND"
  53. 3110 PRINT"POKE 54272   LOW FREQUENCY SETTINGS"
  54. 3120 PRINT"POKE 54276   WAVEFORM CONTROL"
  55. 3130 PRINT:PRINT:PRINT"PLEASE REFER TO YOUR COMMODORE USER"
  56. 3140 PRINT"MANUAL FOR MORE INFORMATION."
  57. 3200 GOSUB 10400
  58. 3210 PRINT"[147]":PRINT:PRINT:PRINT::PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  59. 3220 PRINTTAB(7);"THAT'S IT FOR FUNDAMENTALS,"
  60. 3230 PRINT:PRINTTAB(7);"AND THE BEST IS YET TO COME...."
  61. 3235 POKE 32766,13:POKE 32767,69
  62. 3240 LOAD"HELLO K2",8
  63. 9000 GOTO 9000
  64. 10000 REM***********VTAB****************
  65. 10010 PRINT""
  66. 10020 VA=VT/2
  67. 10030 VD=INT(VT/2)
  68. 10040 IF VA-VD>.4 THEN PRINT
  69. 10050 FOR CR=1 TO VD
  70. 10060 PRINT""
  71. 10070 NEXT CR
  72. 10080 RETURN
  73. 10100 REM*********PADDLE SET UP*********
  74. 10110 C=12*4096
  75. 10120 FOR I=0 TO 63:READ A:POKE C+I,A:NEXT
  76. 10130 DATA 162,1,120,173,2,220,141,0,193,169,192,141,2,220,169
  77. 10140 DATA 128,141,0,220,160,128,234,136,16,252,173,25,212,157
  78. 10150 DATA 1,193,173,26,212,157,3,193,173,0,220,9,128,141,5,193
  79. 10160 DATA 169,64,202,16,222,173,0,193,141,2,220,173,1,220,141
  80. 10170 DATA 6,193,88,96
  81. 10180 RETURN
  82. 10200 REM**********DEBOUNCE*************
  83. 10210 SYSC
  84. 10220 S2=PEEK(C+262)
  85. 10230 IF S2<> 255 THEN 10250
  86. 10240 GOTO 10210
  87. 10250 BV=S2
  88. 10260 SYSC
  89. 10270 S2=PEEK(C+262)
  90. 10280 IF S2=255 THEN RETURN
  91. 10290 (null) TO 10260
  92. 10300 REM**********PADDLE READ*********
  93. 10310 SYSC
  94. 10320 XP=PEEK(C+257):YP=PEEK(C+259)
  95. 10330 S2=PEEK(C+262)
  96. 10340 RETURN
  97. 10400 REM*********PRESS EITHER BUTTON******
  98. 10410 VTAB=20:GOSUB 10000
  99. 10420 EB$="PRESS EITHER BUTTON TO CONTINUE..."
  100. 10421 PRINTEB$
  101. 10430 GOSUB 10200
  102. 10440 RETURN
  103.